2 POKE53280,0:POKE53281,0:POKE646,15:GOSUB40000
5 PRINT"[147]   [197]LEKTRONISCHES [212]AGEBUCH"
10 POKE808,254:PRINT"   [205]ENUE:":INPUT"   1=CODIEREN, 2=DECODIEREN";W
12 PRINT"   [194]ITTE [196]ISKETTE EINLEGEN!"
15 PRINTTAB(26)"TT.MM.JJJJ[145][145]":INPUT"                  [196]ATUM ";D$
18 PRINT"   [195]ODEZAHLEN X,Y,Z":INPUT"   DURCH [203]OMMA GETRENNT ";A,B,C
20 DIMT(839),T$(839):X=0:IFW=2THEN70
25 PRINT"[147]   [212]EXTEINGABE (MAX. 839 [218]EICHEN)":PRINT"   '*' = [197]NDE":PRINT">";
30 GETT$(X):IFT$(X)=""THEN30
35 IFT$(X)="*"ORX=839THEN50
40 PRINTT$(X);:X=X+1:GOTO30
50 OPEN1,8,2,D$+",S,W":PRINT#1,X:FORI=0TOX-1:B=B+(A*C):PRINT#1,ASC(T$(I))+C+B
60 NEXTI:CLOSE1:GOTO99
70 PRINT"[147]>";:OPEN1,8,2,D$+",S,R":INPUT#1,X:FORI=0TOX-1:B=B+(A*C):INPUT#1,T(I)
80 T(I)=(T(I)-B)-C:IFT(I)<0ORT(I)>255THENCLOSE1:PRINT"[198]ALSCHE [197]INGABE":GOTO99
90 PRINTCHR$(T(I));:NEXTI:CLOSE1
99 CLR:POKE808,237:END:REM -PTS,1985-
40000 FORI=0TO63:READA:S=S+A:POKE40704+I,A:NEXTI
40010 IFS<>6973THENPRINT"? FEHLER IN DATAS":END
40020 PRINT"DATAS OK":SYS40704:RETURN
40030 DATA169,255,141,6,212,141,24,212,169
40040 DATA9,141,5,212,169,103,141,1,212
40050 DATA169,33,141,0,212,120,169,38,141
40060 DATA20,3,169,159,141,21,3,133,56,88
40070 DATA96,72,165,203,201,64,208,9,169
40080 DATA0,141,4,212,104,76,49,234,169
40090 DATA17,141,4,212,76,50,159,0,0